home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / vol15n11.zip / REXBOX.ZIP / ARTIST.CMD next >
OS/2 REXX Batch file  |  1996-01-28  |  2KB  |  60 lines
  1. /* MCI REXX Sample #3 */
  2. /* Sample REXX Script */
  3. /* this script shows you how to determine if a CD is in the drive and */
  4. /* if one is in the drive, how to differentiate which disc has been   */
  5. /* inserted.                                                          */
  6. /*                                                                    */
  7. /* Note: unfortunately, there is no current standard to retrieve      */
  8. /* author information (such as titles/artists) etc. from the CD so we */
  9. /* will retrieve the unique identifier for the disc and use this info */
  10. /* to store author specific information.                              */
  11.  
  12.  
  13. rc = RXFUNCADD('mciRxInit','MCIAPI','mciRxInit')
  14. InitRC = mciRxInit()
  15.  
  16. /* Open the CD */
  17.  
  18. rc = mciRxSendString("open cdaudio alias supercd wait", 'Retst', '0', '0')
  19. rc = mciRxSendString("status supercd media present wait", 'Retst', '0', '0')
  20. If Retst <> 'TRUE' then
  21.      do
  22.      say 'Must have CD inserted to run this command file'
  23.      say 'Please insert'
  24.      rc = mciRxSendString("status supercd media present wait", 'Retst', '0', '0')
  25.  
  26.        do while Retst <> 'TRUE'
  27.          rc = mciRxSendString("status supercd media present wait", 'Retst', '0', '0')
  28.        End
  29.      End
  30.  
  31. rc = mciRxSendString("info supercd id wait", 'Retst', '0', '0')
  32. say 'The unique identifier for this CD is ' Retst 
  33. say 'Use this information to save playlists and other setups'
  34.  
  35.  
  36.  
  37. rc = mciRxSendString("close supercd wait", 'Retst', '0', '0')
  38. say 'Finished SuperCD artist setup'
  39. exit
  40.  
  41.  
  42. error:
  43.    say 'Error' ErrRC 'at line' sigl ', sourceline:' sourceline(sigl)
  44.    say 'Terminating'
  45.    mciRxSendString("close supercd wait", 'Retst', '0', '0')
  46.    mciRxExit()               /* Tell the DLL we're going away */
  47.    exit ErrRC                /* exit, tell caller things went poorly */
  48.  
  49. halt:
  50. /*
  51.  * Close all device alias's, in case we previously killed
  52.  * this batch file in the same process.
  53.  */
  54.    say 'Terminating'
  55.    mciRxSendString("close supercd wait", 'Retst', '0', '0')
  56.    mciRxExit()               /* Tell the DLL we're going away */
  57.  
  58. exit
  59.  
  60.